home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / debugger / ddd-1.000 / ddd-1 / ddd-1.4b / vsllib / DEMOS / flow < prev    next >
Encoding:
Text File  |  1995-05-01  |  2.1 KB  |  84 lines
  1. #!vsl
  2.  
  3. // $Id: flow,v 1.1.1.1 1995/05/01 15:48:49 zeller Exp $ 
  4. // Testdatei fuer "flow.vsl"
  5.  
  6. // $Log: flow,v $
  7. # Revision 1.1.1.1  1995/05/01  15:48:49  zeller
  8. # DDD 0.9 distribution
  9. #
  10. // Revision 9.3  1993/06/25  12:03:19  zeller
  11. // Fix: Kommentare Log-Datei angepasst
  12. //
  13. // Revision 9.2  1993/05/22  20:22:28  zeller
  14. // %Q% added by apply-q-flag.sh 1.5
  15. //
  16. // Revision 9.1  1991/07/08  06:01:17  zeller
  17. // Installierte Version
  18. // 
  19. // Revision 8.1  1991/07/06  15:04:18  zeller
  20. // Installierte Version
  21. // 
  22. // Revision 4.2  1991/05/27  14:24:42  zeller
  23. // Unbenutzte Variablen in '_' umbenannt
  24. // 
  25. // Revision 4.1  1991/05/25  12:53:05  zeller
  26. // Neue Version mit folgenden Eigenschaften:
  27. // Let- und Where-Konstrukten;
  28. // Lokalen und globalen Funktionen, Overloading;
  29. // Erweiterten Fehlermeldungen.
  30. // 
  31. // Revision 1.4  1991/05/06  10:24:32  zeller
  32. // Anpassung an neue Version
  33. // 
  34. // Revision 1.3  1991/05/05  16:45:14  zeller
  35. // Test erweitert: Verschachtelungen usw.
  36. // 
  37. // Revision 1.2  1991/05/05  16:34:42  zeller
  38. // Geeignete Umbenennungen vorgenommen
  39. // 
  40. // Revision 1.1  1991/05/05  16:06:27  zeller
  41. // Initial revision
  42. // 
  43.  
  44. #include <flow.vsl>
  45. #include <list.vsl>
  46.  
  47.  
  48. stmtlist_test() = seqFlow(statFlow("a := b"), statFlow("c := d"), 
  49.   callFlow("compute(e)"), printFlow("print(e)"));
  50.  
  51. while_test() = 
  52.   positiveTopLoopFlow("not ready?", stmtlist_test());
  53.  
  54. until_test() = 
  55.   negativeBottomLoopFlow("done?", stmtlist_test());
  56.  
  57. repeat_test() = positiveBottomLoopFlow("not done?", stmtlist_test());
  58.  
  59. if_test() = testFlow("a > b?", statFlow("c := a"));
  60.  
  61. if_else_test() = testFlow("a > b?", while_test(), until_test());
  62.  
  63. // all tests
  64. all_flow_tests() = 
  65.   " "
  66. | head(stmtlist_test())    & vcenter(" // stmtlist_test()")
  67. | " "
  68. | head(while_test())    & vcenter(" // while_test()")
  69. | " "
  70. | head(until_test())    & vcenter(" // until_test()")
  71. | " "
  72. | head(repeat_test())    & vcenter(" // repeat_test()")
  73. | " "
  74. | head(if_test())        & vcenter(" // if_test()")
  75. | " "
  76. | head(if_else_test())    & vcenter(" // if_else_test()")
  77. | " "
  78. ;
  79.  
  80. flow_explanation() =
  81.   "This is 'flow $Revision: 1.1.1.1 $', based on 'flow.vsl " & flow_version() & "'.";
  82.  
  83. flow_main(_...) -> flow_explanation() | all_flow_tests();
  84.